#!/usr/bin/perl -w

#use v5.10;
#say "Looking for my files that are readable and writable";
print "Looking for my files that are readable and writable\n";
die "No files specified!\n" unless @ARGV;
#foreach my $file ( @ARGV ) {
#    say "$file is readable and writable" if -o -r -w $file;
#}
foreach my $file ( @ARGV ) {
    print "$file is readable and writable\n" if (-w $file && -r _ && -o _);
}
